home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / gfx / show / gs503_data.lha / Ghostscript / data / gslp.ps < prev    next >
Text File  |  1997-08-14  |  16KB  |  533 lines
  1. %    Copyright (C) 1991, 1995, 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % gslp.ps - format and print text
  19.  
  20. % This utility provides functionality approximately equivalent to the Unix
  21. % `enscript' program.  It prints plain text files using a single font.
  22. % It currently handles tabs and formfeeds, but not backspaces.
  23. % It only works with fixed-pitch fonts.
  24. % Standard flags implemented:
  25. %    -12BclqRr -b<header> -f<font> -F<hfont> -L<lines> -p<outfile>
  26. % Sun flags implemented:
  27. %    -T<n>    set tab width
  28. % Flags ignored:
  29. %    -GghKkmow -# -C -d -J -n -P -S -s -t -v
  30. % Flags added:
  31. %    --columns <n>
  32. %        print in <n> columns
  33. %    --detect
  34. %        treat the file as PostScript if it starts with %!
  35. %    --first-page <n>
  36. %        start printing at page <n>
  37. %    --last-page <n>
  38. %        stop printing after page <n>
  39. %    --(heading|footing)-(left|center|right) <string>
  40. %        set the heading/footing fields; use -B first to clear
  41. %    --margin-(top|bottom|left|right) <inches>
  42. %        set a margin
  43. %    --no-eject-(file|formfeed)
  44. %        end-of-file/FF only starts a new column, not a new sheet
  45. %    --spacing <n>
  46. %        use double (n=2), triple (n=3), etc. spacing
  47. % Also, the string %# in a heading or footing is replaced with the page #.
  48. /PageNumberString (%#) def
  49.  
  50. /lpdict 150 dict def
  51. lpdict begin
  52.  
  53. % build iso-latin-1 version of a font
  54. /font-to-iso-latin-1 {    % <font> font-to-iso-latin-1 <font>
  55.     %% reencode for iso latin1; from the 2nd edition red book, sec 5.6.1
  56.     dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall
  57.     /Encoding ISOLatin1Encoding def currentdict end
  58.     dup /FontName get 80 string cvs (-ISOLatin1) concatstrings cvn 
  59.     exch definefont
  60. } def
  61.  
  62. /find-latin-font {    % <name> find-latin-font <font>
  63.   findfont font-to-iso-latin-1
  64. } def
  65.  
  66. % Define the initial values of the printing parameters.
  67.  
  68. /BodyFont null def        % use default
  69.   /defaultBodyFont
  70.     { /Courier find-latin-font Landscape { 7 } { 10 } ifelse scalefont } def
  71. /Columns 1 def
  72. /DetectFileType false def
  73. /EjectEOF true def
  74. /EjectFF true def
  75. /Footers false def
  76. /FootingLeft () def
  77. /FootingCenter () def
  78. /FootingRight () def
  79. /Headers true def
  80. /HeadingLeft () def
  81. /HeadingCenter () def
  82. /HeadingRight (page ) PageNumberString concatstrings def
  83. /HeadingFont null def        % use default
  84.   /defaultHeadingFont
  85.     { /Courier-Bold find-latin-font 10 scalefont } def
  86. /Landscape false def
  87. /MarginBottom 36 def        % 1/2"
  88. /MarginLeft 36 def        % 1/2"
  89. /MarginRight 36 def        % 1/2"
  90. /MarginTop 36 def        % 1/2"
  91. /MaxLines 9999 def        % max lines per page
  92. /Noisy true def            % i.e., not quiet
  93. /OutFile null def        % null = write directly to device
  94. /PageFirst 1 def
  95. /PageLast 99999 def
  96. /Spacing 1 def
  97. /Tab 8 def
  98. /Truncate false def        % wrap long lines, don't truncate
  99.  
  100. % When writing to a file, we want to write out PostScript;
  101. % when writing to the printer, we want to execute it;
  102. % some commands should be executed regardless.
  103. % lpexec provides for all this.
  104.  
  105. /lpexec        % <arg1> ... <argn> </op> <n> <do_always> lpexec -
  106.  { OutFile null eq
  107.     { pop 1 add true
  108.     }
  109.     { /t exch def 1 add /n exch def cvx
  110.       n { n -1 roll dup wosp } repeat
  111.       OutFile (\n) writestring
  112.       n t
  113.     }
  114.    ifelse
  115.     { pop load exec }
  116.     { { pop } repeat }
  117.    ifelse
  118.  } def
  119.  
  120. /lpmoveto
  121.  { /moveto 2 true lpexec
  122.  } def
  123. /lpshow
  124.  { dup length 0 ne { /show 1 true lpexec } { pop } ifelse
  125.  } def
  126. /lpsetmyfont
  127.  { dup load setfont
  128.    OutFile null ne { cvx /setfont 1 false lpexec } { pop } ifelse
  129.  } def
  130.  
  131. % Define some utility procedures.
  132.  
  133. /banner        % ypos left center right
  134.  { /HFont lpsetmyfont
  135.    3 -1 roll bannerstring pop 0 4 index pwidth showline2 pop
  136.    exch bannerstring pwidth exch sub 2 div 3 index pwidth showline2 pop
  137.    bannerstring pwidth exch sub
  138.    3 -1 roll pwidth showline2 pop
  139.  } def
  140.  
  141. /bannerstring    % string -> string width
  142.   { PageNumberString search
  143.      { exch pop pindex 4 string cvs concatstrings exch concatstrings
  144.      }
  145.     if dup stringwidth pop
  146.   } def
  147.  
  148. /beginpage
  149.  { /lindex 0 def
  150.    /skipping pindex PageFirst ge pindex PageLast le and not def
  151.    /save 0 true lpexec /pagesave exch def
  152.    skipping { nulldevice   /OutFile null def } if
  153.    Headers
  154.     { lheight hdescent add
  155.       HeadingLeft HeadingCenter HeadingRight banner
  156.     } if
  157.    /BFont lpsetmyfont
  158.  } def
  159.  
  160. /endpage
  161.  { lindex 0 ne
  162.     { Footers
  163.        { topskip plength sub hdescent add
  164.          FootingLeft FootingCenter FootingRight banner
  165.        } if
  166.       /showpage 0 false lpexec
  167.     } if
  168.    pagesave /restore 0 true lpexec
  169.    /pindex pindex 1 add def
  170.  } def
  171.  
  172. /endcolumn
  173.  { lindex colines 1 sub add colines idiv colines mul
  174.    dup llength ge { pop endpage beginpage } { /lindex exch def } ifelse
  175.  } def
  176.  
  177. /fontheight    % <font> fontheight <ascent> <height>
  178.  { gsave setfont
  179.    newpath 0 0 moveto
  180.    (|^_j) false charpath
  181.    pathbbox exch pop dup 2 index sub 4 -2 roll pop pop
  182.    grestore exch 1.25 mul exch 1.25 mul
  183.  } def
  184.  
  185. /wosp
  186.  { OutFile ( ) writestring OutFile exch write==only
  187.  } def
  188.  
  189. /outfont        % name font ->
  190.  { OutFile null ne
  191.     { exch wosp
  192.       dup /FontName get 
  193.       dup wosp OutFile ( findfont) writestring
  194.       %% reencode for iso latin1; from the 2nd edition red book, sec 5.6.1
  195.       OutFile ( 
  196.     dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall
  197.     /Encoding ISOLatin1Encoding def currentdict end
  198.       ) writestring
  199.       wosp OutFile (-ISOLatin1 exch definefont) writestring
  200.       /FontMatrix get 0 get 1000 mul round cvi wosp
  201.       OutFile ( scalefont def\n) writestring
  202.     }
  203.     { pop pop
  204.     }
  205.    ifelse
  206.  } def
  207.  
  208. /StringFF (\f) def
  209. /CharFF StringFF 0 get def
  210. /StringTAB (\t) def
  211. /CharTAB StringTAB 0 get def
  212.  
  213. /showline        % line -> leftover_line (handles \f)
  214.  {  { showline1 dup length 0 eq { exit } if
  215.       dup 0 get CharFF ne { exit } if
  216.       EjectFF { endpage beginpage } { endcolumn } ifelse
  217.       skip1
  218.     }
  219.    loop
  220.  } def
  221.  
  222. /showline1        % line -> leftover_line (handles page break)
  223.  { lindex llength eq { endpage beginpage } if
  224.    lindex colines idiv cowidth mul        % x
  225.    lindex colines mod 1 add lheight mul neg fascent sub    % y
  226.    1 index cowidth add
  227.    showline2
  228.    /lindex lindex 1 add def
  229.  } def
  230.  
  231. /showline2    % string x y xlimit -> leftover_string (handles tabs)
  232.  { 2 index exch 5 2 roll lpmoveto    % xinit xlimit string
  233.     { showline3 dup length 0 eq { exit } if
  234.       dup 0 get CharTAB ne { exit } if
  235.       currentpoint exch 4 index sub tabwx div
  236.     0.05 add ceiling tabwx mul 4 index add exch lpmoveto
  237.       skip1
  238.       currentpoint pop 2 index ge { exit } if
  239.     }
  240.    loop exch pop exch pop
  241.  } def
  242.  
  243. /showline3    % xlimit string -> xlimit leftover_string
  244.         % (finds line break / tab / formfeed)
  245.  { currentpoint pop 2 index exch sub
  246.      cwx div 0.1 add cvi 0 max 1 index length min
  247.    1 index 0 3 -1 roll getinterval
  248.     % look for \f or \t
  249.    StringFF search { exch pop exch pop } if
  250.    StringTAB search { exch pop exch pop } if
  251.    dup lpshow
  252.    length dup 2 index length exch sub getinterval
  253.  } def
  254.  
  255. /skip1
  256.  { dup length 1 sub 1 exch getinterval
  257.  } def
  258.  
  259. /e== {        % <object> e== - -- print an object to stderr
  260.   (%stderr) (w) file dup 3 -1 roll write==only flushfile
  261. } def
  262.  
  263. /eprint {    % <string> eprint - -- print a string to stderr
  264.   (%stderr) (w) file dup 3 -1 roll writestring flushfile
  265. } def
  266.  
  267. % The main printing procedure
  268.  
  269. /lp        % file initial_chars ->
  270.  { /lpline exch def
  271.    /lpfile exch def
  272.    /save 0 true lpexec
  273.  
  274. % Initialize the device and fonts.
  275.    /BFont
  276.      BodyFont null eq { defaultBodyFont } { BodyFont } ifelse def
  277.    /BFont BFont outfont
  278.    Headers Footers or
  279.     { /HFont
  280.     HeadingFont null eq { defaultHeadingFont } { HeadingFont } ifelse def
  281.       /HFont HFont outfont
  282.     }
  283.    if
  284.  
  285. % Get the layout parameters.
  286.    clippath
  287.    Landscape { 90 /rotate 1 true lpexec } if
  288.    BFont setfont ( ) stringwidth pop /cwx exch def
  289.      cwx Tab mul /tabwx exch def
  290.    BFont fontheight /fheight exch def /fascent exch def
  291.    Headers Footers or { HFont fontheight } { 0 0 } ifelse
  292.      /hheight exch def /hascent exch def
  293.      /hdescent hheight hascent sub def
  294.    fheight Spacing mul /lheight exch def
  295.    Headers { hheight lheight add } { 0 } ifelse
  296.      /topskip exch def
  297.    Footers { hheight lheight add } { 0 } ifelse
  298.      /botskip exch def
  299.    /pskip topskip botskip add def
  300.     % Translate the page so that (0,0) corresponds to
  301.     % the top of the topmost body line.
  302.    pathbbox
  303.      2 index sub MarginBottom MarginTop add sub /plength exch def
  304.      2 index sub MarginLeft MarginRight add sub /pwidth exch def
  305.      pwidth Columns div /cowidth exch def
  306.      exch MarginLeft add
  307.      exch MarginBottom add plength add topskip sub
  308.      /translate 2 true lpexec
  309.    plength pskip sub lheight div cvi MaxLines min
  310.      dup /colines exch def
  311.      Columns mul /llength exch def
  312.    OutFile null ne { nulldevice } if
  313.  
  314. % Print layout
  315.    Noisy
  316.     { (Page height = ) eprint llength e==
  317.       (.\n) eprint flush
  318.     } if
  319.  
  320. % Disable stack recording so we can use stopped with readline.
  321.    $error /recordstacks false put
  322.  
  323. % Initialize for the first page.
  324.    /lbuf 1000 string def
  325.    /pindex 1 def
  326.    beginpage
  327.  
  328. % Iterate through the file.
  329.    lpline
  330.     { dup length /pos exch def
  331.       lbuf exch 0 exch putinterval
  332.        { lpfile lbuf pos lbuf length pos sub getinterval readline } stopped
  333.        {    % Filled the line before a CR or EOF.
  334.          exch pop showline
  335.        }
  336.        {    % Reached CR and/or EOF first.
  337.          exch length pos add lbuf exch 0 exch getinterval
  338.      1 index { showline } if        % omit final empty line
  339.       { dup length 0 eq Truncate or { pop () exit } if
  340.         showline
  341.       }
  342.      loop
  343.      exch not { exit } if
  344.        }
  345.       ifelse
  346.     } loop
  347.    pop
  348.  
  349. % Wrap up.
  350. %**************** WHY IS THIS COMMENTED OUT? ****************
  351. %   EjectEOF { endpage } { endcolumn } ifelse
  352.    endpage
  353.    /restore 0 true lpexec
  354.  
  355.  } def
  356.  
  357. end
  358.  
  359. % Usage: <file> lp
  360. %   prints <file> using the current parameter settings.
  361. % Usage: [ <arg1> ... <argn> ] lpcommand
  362. %   interprets args like a command line.
  363.  
  364. /lp { save   lpdict begin () lp end   restore } def
  365.  
  366. lpdict begin
  367.  
  368. /splitfn        % (FontNNN) -> <font>
  369.  { dup /arg exch def length
  370.     { dup 0 le { exit } if
  371.       dup 1 sub arg exch get dup 48 ge exch 59 le and not { exit } if
  372.       1 sub
  373.     } loop
  374.    arg exch 0 exch getinterval dup cvn find-latin-font
  375.    exch arg exch anchorsearch pop pop cvr scalefont
  376.  } def
  377.  
  378. % Parse the command line switches.
  379.  
  380. /doswitch    % argn ... arg1 (-?) restofswitch ->
  381.  { exch dup cvn lpdict exch known
  382.     { cvn load exec }
  383.     { exch pop (Unknown switch: ) eprint eprint (\n) eprint }
  384.    ifelse
  385.  } def
  386.  
  387. /more        % argn ... arg1 restofswitch ->
  388.  { dup length 0 ne
  389.     { (- ) dup 1 3 index 0 get put
  390.       exch dup length 1 sub 1 exch getinterval
  391.       doswitch
  392.     }
  393.     { pop
  394.     }
  395.    ifelse
  396.  } def
  397.  
  398. /-- { (--) exch concatstrings
  399.       dup cvn lpdict exch known
  400.        { cvn load exec }
  401.        { (Unknown switch: ) eprint eprint (\n) eprint }
  402.       ifelse
  403.     } def
  404. /--columns { cvi 1 max /Columns exch def } def
  405. /--detect { /DetectFileType true def } def
  406. /--first-page { cvi /PageFirst exch def } def
  407. /--footing-center { /FootingCenter exch def   /Footers true def } def
  408. /--footing-left { /FootingLeft exch def   /Footers true def } def
  409. /--footing-right { /FootingRight exch def   /Footers true def} def
  410. /--heading-center { /HeadingCenter exch def   /Headers true def } def
  411. /--heading-left { /HeadingLeft exch def   /Headers true def } def
  412. /--heading-right { /HeadingRight exch def   /Headers true def } def
  413. /--last-page { cvi /PageLast exch def } def
  414. /--margin-bottom { cvr 72.0 mul /MarginBottom exch def } def
  415. /--margin-left { cvr 72.0 mul /MarginLeft exch def } def
  416. /--margin-right { cvr 72.0 mul /MarginRight exch def } def
  417. /--margin-top { cvr 72.0 mul /MarginTop exch def } def
  418. /--no-eject-file { /EjectEOF false def } def
  419. /--no-eject-formfeed { /EjectFF false def } def
  420. /--spacing { cvr /Spacing exch def } def
  421.  
  422. /-# { pop } def        % ignore
  423. /-+ { -- } def
  424. (-1)cvn { /Columns 1 def   more } def
  425. (-2)cvn { /Columns 2 def   more } def
  426. /-b { /HeadingLeft exch def   /HeadingCenter () def   /HeadingRight PageNumberString def
  427.       /Headers true def
  428.       /break true def
  429.     } def
  430. /-B { /HeadingLeft () def   /HeadingCenter () def   /HeadingRight () def
  431.       /Headers false def
  432.       /FootingLeft () def   /FootingCenter () def   /FootingRight () def
  433.       /Footers false def
  434.       /break true def
  435.       more
  436.     } def
  437. /-C { pop } def        % ignore
  438. /-c { /Truncate true def   more } def
  439. /-d { pop } def        % ignore
  440. /-f { splitfn /BodyFont exch def } def
  441. /-F { splitfn /HeadingFont exch def } def
  442. /-G { more } def    % ignore
  443. /-g { more } def    % ignore
  444. /-h { more } def    % ignore
  445. /-J { pop } def        % ignore
  446. /-K { more } def    % ignore
  447. /-k { more } def    % ignore
  448. /-l { 66 -L -B } def
  449. /-L { cvi /MaxLines exch def } def
  450. /-m { more } def    % ignore
  451. /-n { pop } def        % ignore
  452. /-o { more } def    % ignore
  453. /-p { (w) file /OutFile exch def   OutFile (%!\n) writestring } def
  454. /-P { pop } def        % ignore
  455. /-q { /Noisy false def   more } def
  456. /-r { /Landscape true def   more } def
  457. /-R { /Landscape false def   more } def
  458. /-S { pop } def        % ignore
  459. /-s { pop } def        % ignore
  460. /-T { cvi /Tab exch def } def
  461. /-v { pop } def        % ignore
  462. /-w { more } def    % ignore
  463.  
  464. /lp1        % filename ->
  465.  { break not { dup /HeadingLeft exch def } if
  466.    Noisy
  467.     { (Printing ) eprint dup eprint (\n) eprint 
  468.     } if
  469.    (r) file
  470.         % If requested, check for a PostScript file.
  471.    DetectFileType
  472.     { dup 2 string readstring pop dup (%!) eq
  473.        {    % Yes, it's a PostScript file.
  474.          pop dup 80 string readline pop pop cvx exec
  475.        }
  476.        { lp
  477.        }
  478.       ifelse
  479.     }
  480.     { () lp
  481.     }
  482.    ifelse
  483.  } bind def
  484.  
  485. /lpcstring 100 string def
  486.  
  487. end
  488.  
  489. /lpcommand        % <[arg1 ... argn]> lpcommand <any_printed>
  490.  {    % Push the commands on the stack in reverse order
  491.    mark exch
  492.    dup length 1 sub -1 0 { 1 index exch get exch } for pop
  493.    lpdict begin
  494.    /any false def
  495.    /break false def
  496.     { dup mark eq { pop exit } if
  497.       dup length 2 ge { dup 0 get (-) 0 get eq } { false } ifelse
  498.        { dup 0 2 getinterval
  499.          exch dup length 2 sub 2 exch getinterval
  500.      doswitch
  501.        }
  502.        { dup  /matched false def
  503.           { /matched true def   /any true def   lp1 } lpcstring filenameforall
  504.      matched { pop } { lp1 } ifelse        % let the error happen
  505.        }
  506.       ifelse
  507.     } loop
  508.    OutFile null ne
  509.     { OutFile (%stdout) (w) file ne { OutFile closefile } if
  510.       /OutFile null def
  511.     } if
  512.    any
  513.    end
  514.  } def
  515.  
  516. [ shellarguments
  517.  { ] dup length 0 ne { lpcommand } { false } ifelse not
  518.     { (%stderr) (w) file
  519.       [ (Usage: )
  520.     /PROGNAME where { pop PROGNAME } { (gslp) } ifelse
  521.     ( [-12BclqRr] [-b<header>] [-f<font>] [-F<hfont>]\n)
  522.     (        [-L<lines>] [-p<outfile>] [-T<tabwidth>] [--columns <n>]\n)
  523.     (        [--detect] [--first-page <page#>] [--last-page <page#>]\n)
  524.     (        [--(heading|footing)-(left|right|center) <string>]\n)
  525.     (        [--margin-(top|bottom|left|right) <inches>]\n)
  526.     (        [--no-eject-(file|formfeed)] [--spacing <n>] file1 ... filen\n)
  527.       ] { 2 copy writestring pop } forall dup flushfile closefile
  528.     }
  529.    if
  530.  }
  531.  { pop }
  532. ifelse
  533.